home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 2 / AACD 2.iso / AACD / WebSites / Sites / Wirenet / files / Wirenet15.lzx / Updates / StartNet < prev    next >
Text File  |  1984-08-05  |  1KB  |  47 lines
  1. ; $VER: StartNet 1.5 (01.09.96)
  2. ; Starts up AmiTCP or Miami and sets everything up ready to connect to Internet
  3.  
  4. If $NetState EQ "NoNet"
  5.     If exists "ENV:Wirenet/UseMiami"
  6.         ;Start Miami
  7.         Run >NIL: AmiTCP:Miami
  8.         Wait 3
  9.         WaitForPort MIAMI.1
  10.     Else
  11.         ; Start AmiTCP
  12.         Assign APIPE: Exists > NIL:
  13.         IF Warn
  14.           Mount APIPE: from AmiTCP:devs/APipe-Mountlist
  15.         EndIf
  16.  
  17.         ; log in
  18.         AmiTCP:bin/login -f $USERNAME
  19.         AmiTCP:bin/umask 022
  20.         ; start AmiTCP
  21.         AmiTCP:AmiTCP
  22.         WaitForPort AMITCP
  23.         ; Configure loop-back device
  24.         AmiTCP:bin/ifconfig lo0 localhost
  25.         ; Add IP address entry for this host
  26.         rx "address AMITCP; 'ADD HOST $IPAddress $HostName'"
  27.         ; Add route to this host
  28.         AmiTCP:bin/route add $IPAddress localhost
  29.  
  30.         Assign TCP: Exists > NIL:
  31.         IF Warn
  32.           Mount TCP: from AmiTCP:devs/Inet-Mountlist
  33.         EndIf
  34.  
  35.         ; Start the internet `super server'
  36.         run >NIL: AmiTCP:bin/inetd
  37.     EndIf
  38.  
  39.     SetEnv NetState Offline
  40.  
  41.     If Exists AmiTCP:db/User-Startnet
  42.         AmiTCP:db/User-Startnet
  43.     EndIf
  44.  
  45. EndIf
  46.  
  47.